1) OC3.WEB[MF,ALS] and 2) OC.WEB[MF,ALS]	9-23-84 21:19	pages 1,1

**** File 1) OC3.WEB[MF,ALS]/1P/12L
1)	C00083 00010	@* Processing and writing out the raster information.
1)	C00091 00011	@* Reading the postamble.
1)	C00110 00012	@* OC File Format.
1)	C00129 00013	@* The main program.
1)	C00137 00014	@* System-dependent changes.
1)	C00138 00015	@* Index.
1)	C00139 ENDMK
1)	C⊗;
**** File 2) OC.WEB[MF,ALS]/1P/12L
2)	C00086 00010	@* Processing and writing out the raster information.
2)	C00094 00011	@* Reading the postamble.
2)	C00113 00012	@* OC File Format.
2)	C00132 00013	@* The main program.
2)	C00140 00014	@* System-dependent changes.
2)	C00141 00015	@* Index.
2)	C00142 ENDMK
2)	C⊗;
***************


**** File 1) OC3.WEB[MF,ALS]/9P/41L
1)	begin  bad_char←false; n←16;
1)	if p<0 then error('string of negative length!');
1)	@.string of negative length@>
1)	while p>0 do
1)		begin q←get_byte;
1)		if (q<" ")∨(q>"~") then bad_char←true;
1)		decr(p);
1)		end;
1)	if bad_char then error('non-ASCII character in xxx command!');
1)	@.non-ASCII character...@>
1)	end
**** File 2) OC.WEB[MF,ALS]/9P/41L
2)	begin 
2)	face_flag←false;
2)	if p>6 then fontfa_flag←true else fontfa_flag←false;
2)	n←1;
2)	while (n≤6) and (fontfa_flag=true) do
2)	  begin q←get_byte;
2)	    print(' q=',q:1); print (' should =',xxx_fontfa[n]); print_nl;
2)	  if (q≠xxx_fontfa[n]) then fontfa_flag←false; {ignore this |xxx|}
2)	  decr(p); incr(n);
2)	  end;
2)	if fontfa_flag=true then
2)	  begin q←get_byte; decr(p);
2)	  if q="c" then face_flag←true
2)	  else if q="m" then
  1) OC3.WEB[MF,ALS] and 2) OC.WEB[MF,ALS]	9-23-84 21:19	pages 9,9

2)	    begin
2)	     print('p=',p:1); print('  q=',q:1); print_nl;
2)	    while (p>0) and (q≠" ") do
2)	      begin q←get_byte; decr(p);
2)	      end;
2)	     print('p[1]= ',p:1); print_nl;
2)	    xxx_buffer[1]←p;
2)	    n←2;
2)	    while (p>0) and (n≤20) do
2)	      begin xxx_buffer[n]←get_byte;
2)	      print('  ',xxx_buffer[n]:1); print(' at n=',n:1);
2)	      decr(p); incr(n);
2)	      end;
2)	    while n≠20 do
2)	      begin xxx_buffer[n]←0; incr(n);
2)	      end;
2)	    end;
2)	  end;
2)	while p>0 do
2)	  begin q←get_byte; decr(p);
2)	  end;
2)	end
***************


**** File 1) OC3.WEB[MF,ALS]/9P/57L
1)	@ @<Translate a |yyy| command@>=
1)	begin 
1)	end
1)	@ The bulk of a \.{GF} file generally consists of |paint| commands,
**** File 2) OC.WEB[MF,ALS]/9P/81L
2)	xxx_buffer: array[1..20] of eight_bits;
2)	xxx_fontfa: array[1..6] of eight_bits;
2)	face_flag: boolean;  {to alert for a |yyy| |fontfacebyte| value}
2)	fontfa_flag: boolean;  {to mark an |xxx| for further consideration}
2)	@ @<Set initial values@>=
2)	xxx_fontfa[1]←"f";
2)	xxx_fontfa[2]←"o";
2)	xxx_fontfa[3]←"n";
2)	xxx_fontfa[4]←"t";
2)	xxx_fontfa[5]←"f";
2)	xxx_fontfa[6]←"a";
2)	face_flag←false; fontfa_flag←false;
2)	for i←1 to 20 do xxx_buffer[i]←0;
2)	@ @<Translate a |yyy| command@>=
2)	begin
2)	if face_flag=true then
2)	  begin
  1) OC3.WEB[MF,ALS] and 2) OC.WEB[MF,ALS]	9-23-84 21:19	pages 9,9

2)	  font_face_byte←round(p/unity);
2)	  face_flag←false;
2)	  end;
2)	end
2)	@ @p
2)	n←1; while n≠20 do
2)	  begin oc_byte(xxx_buffer[n]); incr(n);
2)	  end;
2)	@ The bulk of a \.{GF} file generally consists of |paint| commands,
***************


**** File 1) OC3.WEB[MF,ALS]/12P/174L
1)	oc_word(0); {|oc_string(fontidentifier,20);| goes in here, replacing 5 words}
1)	oc_word(0);
1)	oc_word(0);
1)	oc_word(0);
1)	oc_word(0);@/
1)	oc_halfword(20491); {header for orbit-chars IX}
**** File 2) OC.WEB[MF,ALS]/12P/174L
2)	oc_byte(0);
2)	oc_byte(0);
2)	oc_byte(0);
2)	oc_byte(0);
2)	oc_byte(0);
2)	oc_halfword(20491); {header for orbit-chars IX}
***************


**** File 1) OC3.WEB[MF,ALS]/12P/249L
1)	wd_word(0); {|wd_string(fontidentifier,20);| goes in here, replacing 5 words}
1)	wd_word(0);
**** File 2) OC.WEB[MF,ALS]/12P/249L
2)	wd_word(0);
2)	wd_word(0);
***************


**** File 1) OC3.WEB[MF,ALS]/12P/253L
1)	wd_word(0);@/
1)	wd_halfword(16393); {header for orbit-chars IX}
**** File 2) OC.WEB[MF,ALS]/12P/253L
2)	wd_word(0);
2)	wd_halfword(16393); {header for orbit-chars IX}
***************